home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 …SCII & the Runetime Code / ADC Developer CD (1992-07) (''Butch ASCII And The Runtime Code'')_iso / Dev.CD 199207.iso / Development Platforms / Apple II / DTS Apple II Sample Code / IR 2.0 / Source Code / IR Module / TheHeader.aii < prev   
Encoding:
Text File  |  1991-12-13  |  996 b   |  37 lines  |  [TEXT/MPS ]
  1. ************************************************
  2. *
  3. * Nifty List module header to be linked with
  4. * main Pascal IIgs code.
  5. *
  6. * 4-Dec-91 Dave Lyons
  7. *
  8. ************************************************
  9. ModuleHeader    proc export
  10.     IMPORT NDAOPEN,NDAACTION
  11.  
  12.     dc.l NDAOPEN    ; Pointer to the open routine
  13.     dc.l moduleClose    ; Pointer to the close routine (RTL)
  14.     dc.l AsmAction    ; Pointer to the action routine glue
  15.     dc.l moduleInit    ; Pointer to the init routine (RTL)
  16. minNLVersion    dc.w $0330    ; Minimum Nifty List version (3.3)
  17.     dc.w $0000    ; reserved
  18.     dc.b '**'    ; two place-holding characters
  19. NDAMenuLine    dc.b 'IR Module'
  20.     dc.b '\H**'    ; \H and two place-holding characters
  21.     dc.b 0    ; The menu item string terminator
  22.  
  23. AsmAction    pha    ; reserve space for integer result
  24.     pha    ; push the action code
  25.     phy    ; push high word of event record addr
  26.     phx    ; push low word of event record addr
  27.     jsl NDAACTION    ; call the action routine
  28.     pla    ; get the integer result
  29.     rtl    ; and return
  30.  
  31. moduleClose    rtl
  32. moduleInit    rtl
  33.  
  34.     EndP
  35.  
  36.     End
  37.